home *** CD-ROM | disk | FTP | other *** search
/ I.C.E. International Computer Entertainment 5 / I.C.E. - International Computer Entertainment - Issue 05 (1991-08)(Cytax).adf / SOURCES / eor(de)coder.PAS.PP / eor(de)coder.PAS
Encoding:
Pascal/Delphi Source File  |  1991-01-01  |  2.8 KB  |  96 lines
  1. Program Kot;
  2.  
  3. Uses CRT;
  4.  
  5. Var       eingabe,ausgabe : string[12];
  6.                    answer : char;
  7.                     datei : file of byte;
  8.    nichts,geheim,high,j,i : integer;
  9.                         z : array [1..10000] of byte;
  10.                         x : byte;
  11.  
  12. Procedure message;
  13. begin
  14. gotoxy (2,18);
  15. Writeln (' Ja, ja, ja! Immer alles besser wissen, wie??? Ueberleg` doch mal! ');
  16. Writeln (' Dies ist ein Byte-orientiertes Verfahren. Was schliessen wir ');
  17. Writeln (' daraus!? Genau: Der Programmierer hatte mal wieder keinen Nerv, ');
  18. Writeln (' `ne Modulo-Funktion einzubauen, die Deine Geheimzahl automatisch');
  19. Writeln (' "geradebiegen tut", deswegen sind nur Geheimzahlen zwischen ');
  20. Writeln ('        0 und 255     erlaubt! Kapito?  Dann Taste! ');
  21. For nichts:=1000 to 3000 do
  22.  begin
  23.  sound (nichts+random(random(random(random(2500))))); (* haha! *)
  24.  delay (1);
  25.  end;
  26. nosound; nosound;
  27. repeat
  28. until keypressed;
  29. Gotoxy (2,18);
  30. For nichts:=1 to 6 do
  31. begin
  32. delline;
  33. delay (5);
  34. end;
  35. nosound; nosound; nosound; (* Besser als zweimal... Hmm?!  *)
  36. end;
  37.  
  38. Procedure codieren;
  39. begin
  40. i:=1;
  41. Writeln; Writeln; Writeln (' Momentsken! Ist ja bekannt, daß solche Rechner ');
  42. Writeln (' nicht so schnell wie der Standard sind! Hähä!' );
  43. Writeln (' (Re)Codier, (Re)Codier, (Re)Codier... Gähn!');
  44. assign  (datei,eingabe);
  45. reset (datei);
  46. while not(eof(datei)) do
  47. begin
  48. read (datei,x);
  49. z[i]:=x;
  50. inc (i);
  51. end;                          (* Jaja.. ich weiss... Spaghetti-Code *)
  52. close (datei);                (* Aber wen stört`s???                *)
  53. high:=i-1;
  54. assign (datei,ausgabe);
  55. rewrite (datei);
  56. for j:=1 to high do
  57. begin
  58. z[j]:=geheim xor z[j];
  59. write (datei,z[j]);
  60. end;
  61. close (datei);
  62. end;
  63.  
  64. Procedure menu;
  65. begin
  66. CLRSCR;
  67. sound ($3310); (* Geiles Fiepen, hihi! Kleiner Gag von mir... *)
  68. Writeln (' Moin! Dieses Programm(?) (re)codiert Texte. ');
  69. Writeln (' Es wurde geschrieben, um die vielen Neugierigen, ');
  70. Writeln (' die dauernd Deine Datenbestände "begutachten", mal ');
  71. Writeln (' so richtig zu irritieren, hihihi...');
  72. Writeln (' Du hast sogar die Möglichkeit einer privaten Geheimzahl, ');
  73. Writeln (' die Deine Daten zusätzlich schützt! ');
  74. Writeln (' Geschrieben auf einem 68030/68882 Amiga mit ADOS 2.0!!!');
  75. Writeln (' ATARI ST? Das tut weh! HÄHÄHÄHÄHÄHÄHÄHÄHÄ!!!! ');
  76. Writeln (' Aber nun an`s Werk:   ');
  77. Writeln;
  78. gotoxy (2,12); Write (' Name des Eingabe-Files: '); Readln (eingabe);
  79. gotoxy (2,14); Write (' Name des Ausgabe-Files: '); Readln (ausgabe);
  80. repeat
  81. gotoxy (2,16); write (' Private(?) Geheimzahl:         ');
  82. gotoxy (27,16); Readln (geheim);
  83. If ((geheim>255) or (geheim<0)) then message;
  84. until ((geheim>0) and (geheim<255));
  85. codieren;
  86. end;
  87.  
  88. begin
  89. menu;
  90. end.
  91.  
  92. (* mastered in 6/91 in a quarter of an hour *)
  93. (* most time used for typing these texts... *!)
  94. (* (C)(?) by EDDY of COAST 1991 exclusively for his "Info-Kurs" *)
  95. (* and secondly for CYTAX ICE #5.... Hallo Schuhgar! Hihi... *)
  96.